home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_36_popup - gradient tool.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.9 KB  |  87 lines
  1. property pSpriteList, pMemberList, pPressed, pMySprite, pMyMember, pMyMember2, pMyMember3
  2. global gGradientDirection
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8.   pMyMember3 = pMyMember + 1
  9.   pMemberList = [:]
  10.   repeat with i in pSpriteList
  11.     addProp(pMemberList, i, sprite(i).member.name)
  12.   end repeat
  13.   hidePopup(me)
  14.   gGradientDirection = "H"
  15. end
  16.  
  17. on mouseWithin me
  18.   set the memberNum of sprite pMySprite to pMyMember3
  19.   put "Click to select another gradient type." into field "status"
  20. end
  21.  
  22. on mouseLeave me
  23.   set the memberNum of sprite pMySprite to pMyMember
  24.   put EMPTY into field "status"
  25. end
  26.  
  27. on mouseDown me
  28.   pPressed = 1
  29. end
  30.  
  31. on mouseUp me
  32.   set the memberNum of sprite pMySprite to pMyMember3
  33.   liftUp(me)
  34. end
  35.  
  36. on mouseUpOutSide me
  37.   liftUp(me)
  38. end
  39.  
  40. on liftUp me
  41.   pPressed = 0
  42.   hidePopup(me)
  43.   select(me)
  44. end
  45.  
  46. on exitFrame me
  47.   if pPressed then
  48.     showPopup(me)
  49.     s = the rollover
  50.     if pSpriteList.getOne(s) then
  51.       sprite(s).member = member(pMemberList.getProp(s)).number + 1
  52.     end if
  53.   end if
  54. end
  55.  
  56. on hidePopup me
  57.   repeat with i = 1 to pSpriteList.count
  58.     set the memberNum of sprite pMySprite to pMyMember
  59.     sprite(pSpriteList[i]).memberNum = 0
  60.   end repeat
  61. end
  62.  
  63. on showPopup me
  64.   repeat with i in pSpriteList
  65.     set the memberNum of sprite pMySprite to pMyMember2
  66.     sprite(i).member = member(pMemberList.getProp(i))
  67.   end repeat
  68. end
  69.  
  70. on select me
  71.   s = the rollover
  72.   if pSpriteList.getOne(s) then
  73.     set the memberNum of sprite pMySprite to member(pMemberList.getProp(s))
  74.     pMyMember = pMySprite.memberNum
  75.     pMyMember2 = pMyMember - 1
  76.     pMyMember3 = pMyMember + 1
  77.     gGradientDirection = pMemberList.getProp(s).word[2]
  78.     sendSprite(138, #turnMeOn)
  79.   end if
  80. end
  81.  
  82. on getPropertyDescriptionList me
  83.   list = [:]
  84.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: []])
  85.   return list
  86. end
  87.